;;;;

(define-module (evol npc) #:version (2016 004)
  #:use-module (rnrs)
  #:export ())

(define (instr str) (string-append "\"" str "\""))

(define t "\t")
(define c ","
(define indent "    ")
(define close "close;")
(define en-name "--ja--") ; The monsters name in mob_db.txt
(define gm-name "--en--") ; The upper-case name provided for gm commands.

(define (info-url name url)
  (string-append "<INFO>" name "<URL>" url "</URL>" "</INFO>"))

(define (mes sym . rest)
  (case sym
    ((-) (string-append "mes(" "\"" (car rest) "\"" ");"))))

;; Use these instead of putting words in the player's mouth.
(define m-close (instr "[Close]"))
(define m-ok (instr "[OK]"))
(define m-cancel (instr "[Cancel]"))
(define m-yes (instr "[Yes]"))
(define m-no (instr "[No]"))

(define (monster map-name x  y
		          xs ys
                          name
                          id
                          amount
                          delay1 delay2
                          event
                          mob-size mob-ai)
  "(monster x y xs ys name id amount delay1 delay2 event mob-size mob-ai)"
  (string-append map-name c x c y c xs c ys t "monster" t name
		 t id c amount c
                 delay1 c delay2 c event c
                 mob-size c mob-ai))

;;;;
